object MikDlg: TMikDlg
  Left = 196
  Top = 112
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = '�r�n De�erlerini Belirleme'
  ClientHeight = 309
  ClientWidth = 431
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial Tur'
  Font.Style = [fsBold]
  KeyPreview = True
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelURAD: TLabel
    Left = 9
    Top = 1
    Width = 63
    Height = 15
    Alignment = taCenter
    Caption = 'LabelURAD'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelFiyat: TLabel
    Left = 0
    Top = 17
    Width = 98
    Height = 15
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Fi&yat�'
    FocusControl = DBEditFIYAT
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 266
    Top = 43
    Width = 81
    Height = 15
    Caption = 'Mevcut Miktar'
    FocusControl = DBEditELDEMIK
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 285
    Top = 17
    Width = 62
    Height = 15
    Caption = 'Fiyat Tarihi'
    FocusControl = DBEditTARIH
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelSA: TLabel
    Left = 28
    Top = 44
    Width = 71
    Height = 15
    Alignment = taRightJustify
    Caption = 'Sat�� Mik&tar�'
    FocusControl = DBEditSATISMIK
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 1
    Top = 277
    Width = 427
    Height = 3
    Shape = bsBottomLine
    Style = bsRaised
  end
  object Ayna: TLabel
    Left = 136
    Top = 286
    Width = 73
    Height = 14
    AutoSize = False
    Color = 16777088
    ParentColor = False
    Visible = False
  end
  object DBRadioGrRECKOD: TDBRadioGroup
    Left = 1
    Top = 59
    Width = 429
    Height = 71
    Caption = 'RE�ETE T�P�'
    Color = clSilver
    Columns = 3
    DataField = 'RECKOD'
    DataSource = FiMikSRC
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Items.Strings = (
      '&Normal'
      '&Ye�il Re�eteli'
      '&K�rm�z� Re�eteli'
      '&Re�.ile Sat��� Mecburi'
      'Antibiogram Gerekli'
      'Sa�l�k Krl. Rp. Gerekli'
      '&�zel Kat�l�m Payl�'
      '�la� &Beraberi'
      'Bedeli Hst. �deyecek'
      '&Hastanede Yatan Hst.'
      '�thal �la&�'
      'Raporl&U �thal �la�')
    ParentColor = False
    ParentFont = False
    TabOrder = 6
    Values.Strings = (
      'N'
      'Y'
      'K'
      'R'
      'A'
      'S'
      'O'
      'I'
      'B'
      'H'
      'L'
      'U')
  end
  object DBEditFIYAT: TDBEdit
    Left = 101
    Top = 17
    Width = 158
    Height = 22
    DataField = 'FIYAT'
    DataSource = FiMikSRC
    MaxLength = 0
    TabOrder = 3
    OnEnter = DBEditFIYATEnter
    OnExit = DBEditFIYATExit
  end
  object DBEditELDEMIK: TDBEdit
    Left = 350
    Top = 40
    Width = 79
    Height = 22
    Color = clSilver
    DataField = 'ELDEMIK'
    DataSource = FiMikSRC
    Enabled = False
    MaxLength = 0
    TabOrder = 1
  end
  object DBEditSATISMIK: TDBEdit
    Left = 101
    Top = 40
    Width = 158
    Height = 22
    DataField = 'SATISMIK'
    DataSource = FiMikSRC
    MaxLength = 0
    TabOrder = 4
    OnKeyDown = DBEditSATISMIKKeyDown
    OnKeyPress = DBEditSATISMIKKeyPress
  end
  object DBEditTARIH: TDBEdit
    Left = 350
    Top = 17
    Width = 79
    Height = 22
    Color = clSilver
    DataField = 'TARIH'
    DataSource = FiMikSRC
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    MaxLength = 0
    ParentFont = False
    TabOrder = 2
  end
  object OKBtn: TBitBtn
    Left = 263
    Top = 283
    Width = 75
    Height = 25
    TabOrder = 7
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = 1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 350
    Top = 283
    Width = 75
    Height = 25
    Caption = '&Vazge�'
    TabOrder = 8
    Kind = bkCancel
    Margin = 2
    Spacing = 5
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 176
    Top = 283
    Width = 75
    Height = 25
    HelpContext = 103
    TabOrder = 9
    Kind = bkHelp
    Margin = 2
    Spacing = 3
    IsControl = True
  end
  object BitBtnFIYAT: TBitBtn
    Left = 7
    Top = 245
    Width = 138
    Height = 25
    HelpContext = 104
    Caption = 'Eski Fiyat &Listesi'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtnFIYATClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
    Spacing = 9
  end
  object PanelAL: TPanel
    Left = 164
    Top = 131
    Width = 267
    Height = 144
    HelpContext = 134
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clNavy
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    Visible = False
    object Label4: TLabel
      Left = 173
      Top = 7
      Width = 62
      Height = 14
      Alignment = taRightJustify
      Caption = 'Farkl� �&sk.%'
      FocusControl = MaskEditFI
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 173
      Top = 32
      Width = 59
      Height = 14
      Alignment = taRightJustify
      Caption = 'M&al Fazlas�'
      FocusControl = MaskEdMalFazl
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 172
      Top = 95
      Width = 84
      Height = 41
      Caption = 'Not: Al�nan Miktar Mal Fazlas�yla yazmal�d�r.'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object MaskEdMalFazl: TMaskEdit
      Left = 233
      Top = 27
      Width = 26
      Height = 22
      Color = clWhite
      EditMask = '!999;1;_'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 3
      ParentFont = False
      TabOrder = 1
      Text = '  0'
    end
    object RadioGrMKDV: TRadioGroup
      Left = 172
      Top = 52
      Width = 87
      Height = 43
      Caption = 'MFKDV yi Ekle'
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 1
      Items.Strings = (
        '&Evet'
        '&Hay�r')
      ParentColor = False
      ParentFont = False
      TabOrder = 2
    end
    object MaskEditFI: TMaskEdit
      Left = 236
      Top = 3
      Width = 23
      Height = 22
      Color = clWhite
      EditMask = '!99;1;_'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      TabOrder = 0
      Text = ' 0'
    end
    object RadioGrAL: TDBRadioGroup
      Left = 1
      Top = 1
      Width = 167
      Height = 136
      HelpContext = 134
      Caption = '�skonto Tipi'
      Color = clNavy
      Ctl3D = True
      DataField = 'ALISTIP'
      DataSource = FiMikSRC
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Items.Strings = (
        '&1.Sabit Depo �sk.lu'
        '&2.�skontosuz'
        '&3.Dep.Fiyatl� Sbt.D.�sk.lu'
        '&4.Dep. Fiyatl� �sk.suz'
        '&5.Di�.(KDVsiz) �sk.suz'
        '&6.Farkl� �skontolu'
        '&7.Dep. Fyt.l� Farkl� �sk.lu'
        '&8.Di�.(Kdvsiz) Sbt.D.�sk.lu'
        '&9.Di�.(Kdvsiz) Farkl� �sk.lu')
      ParentColor = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      Values.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8')
      OnClick = RadioGrALClick
    end
  end
  object PanelF: TPanel
    Left = 0
    Top = 131
    Width = 172
    Height = 144
    BevelInner = bvLowered
    TabOrder = 0
    Visible = False
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 168
      Height = 140
      HelpContext = 104
      Align = alClient
      DataSource = URUNFIYSRC
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnKeyDown = DBGrid1KeyDown
    end
  end
  object FKapaBtn: TBitBtn
    Left = 4
    Top = 283
    Width = 145
    Height = 25
    Caption = 'Esk. Fyt. List.Ka&pat'
    TabOrder = 11
    Visible = False
    OnClick = FKapaBtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
      3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
      B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
      33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
      000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
      033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
      BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
      33B33733333773333373B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object FiMikSRC: TDataSource
    DataSet = FiMikTAB
    Left = 7
    Top = 31
  end
  object URUNFIYSRC: TDataSource
    DataSet = URUNFIYTab
    Left = 101
    Top = 232
  end
  object FiMikTAB: TTable
    AfterPost = FiMikTABAfterPost
    DatabaseName = 'ECZ'
    TableName = 'FITMP.DB'
    Left = 4
    Top = 65535
    object FiMikTABILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object FiMikTABFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object FiMikTABTARIH: TDateField
      FieldName = 'TARIH'
    end
    object FiMikTABELDEMIK: TIntegerField
      Alignment = taCenter
      FieldName = 'ELDEMIK'
    end
    object FiMikTABSATISMIK: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'SATISMIK'
      OnSetText = FiMikTABSATISMIKSetText
    end
    object FiMikTABRECKOD: TStringField
      FieldName = 'RECKOD'
      Size = 1
    end
    object FiMikTABALISTIP: TStringField
      FieldName = 'ALISTIP'
      Size = 1
    end
  end
  object URUNFIYTab: TTable
    AfterOpen = URUNFIYTabAfterOpen
    AfterInsert = URUNFIYTabAfterInsert
    BeforePost = URUNFIYTabBeforePost
    AfterPost = URUNFIYTabAfterPost
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ILACNO;FITARIH'
    MasterFields = 'ILACNO'
    MasterSource = FiMikSRC
    TableName = 'urfayar.db'
    Left = 58
    Top = 232
    object URUNFIYTabILACNO: TIntegerField
      FieldName = 'ILACNO'
      Visible = False
    end
    object URUNFIYTabFITARIH: TDateTimeField
      DisplayLabel = 'Fyt.Tarihi'
      DisplayWidth = 8
      FieldName = 'FITARIH'
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!90/90/9900;1; '
    end
    object URUNFIYTabFIYAT: TCurrencyField
      DisplayLabel = 'Eski Fiyatlar�'
      DisplayWidth = 13
      FieldName = 'FIYAT'
    end
  end
  object QUFDegis: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'UPDATE URUN')
    Left = 157
    Top = 236
  end
end